From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Jun 1993 01:11:53 +0000 (+0000)
Subject: (mouse-union-first-preferred): Renamed from mouse-union-first-prefered.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95499
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=d177495be731f25483888a16100d06149765555a;p=emacs.git

(mouse-union-first-preferred): Renamed from mouse-union-first-prefered.
---

diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index 0ac9e46f4ea..2356c65917a 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -462,7 +462,7 @@ where L-UNIQUE is considered to be union'ized already."
       (setq l (cdr l)))
     result))
 
-(defun mouse-union-first-prefered (l1 l2)
+(defun mouse-union-first-preferred (l1 l2)
   "Return the union of lists of mouse (code . form) pairs L1 and L2,
 based on the code's, with preference going to elements in L1."
   (mouse-union l2 (mouse-union l1 nil)))
@@ -471,7 +471,7 @@ based on the code's, with preference going to elements in L1."
   "Return a list of (code . function) pairs, where each code is
 currently set in the REGION."
   (let ((mask (mouse-region-to-code region)))
-    (mouse-union-first-prefered
+    (mouse-union-first-preferred
      (mouse-mask-lookup mask (cdr current-local-mousemap))
      (mouse-mask-lookup mask (cdr current-global-mousemap))
      )))